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GENERAL PROGRAM DESCRIPTION 

This program, written in Super Basic, can be used to calculate 0? uptake 
and CO? production in resting and exercising human test subjects. The set of 
data from which these calculations are made is entered into the program; 
included are measurements of 0? and CO? 1n Inspired a1r and expired respiratory 
gas, and various gas volumes, temperature, and pressure measurements. A flow 
diagram of the program is presented in Fig. 1. 

The program will accommodate readings from two types of 0? and CO? 
analyzers: indirect readout analyzers (Steps 10.1 and 12.1) which require the 

use of calibration curves to convert numerical readings of 0? and CO? concen- 
trations into percent, and direct readout analyzers (Steps 10, 11, 12, 13) 
which read directly in percent. For the indirect readout analyzers, the slopes 
and intercepts of the calibration curves must be entered as constants 
(Steps 2, 3, 4). 

The program begins with a prompt (Step 5) that allows the operator to 
either print a set of instructions for running the program, or to go directly 
to the data input section of the program. The data can be entered "conversa- 
tionally" through a series of prompts (Steps 6, 6.1, and 6.2), or they can be 
entered all at once, according to a specified format, without interr'jption 
(Steps 7, 8). Expired water vapor pressure is calculated in either Step 6.2A 
or 8.1, depending on which option for data input is selected. 

Direct or indirect measurements of the concentrations of inspired CO? and 
0? can be entered in the program (Steps 14-19, excluding 14.1), to be used 
later in the ventilation calculations. However, if they are not measured, 
constant values for inspired CO? and 0? concentrations can be used; 0.03% and 
20.93%, respectively, are commonly used. These values have been incorporated 
into the program. 


The major ventilation measurements In the O 2 uptake equation are printed 
out in Step 20; oxygen uptake, expressed In ml/kg/mln. Is printed in Step 22.2. 
The basic equations used to calculate these ventilation measurements were 
taken from Consolazio et al. (1). 

A "no" input in response to the query "are you finished?" (Step 23) 
recycles the program to Step 6 for the next set of Input data. One run 
through the program without use of the conversational queries takes less than 
2 min. Run-time with the conversational queries requires less than 3 min. 

The run-time is partly dependent on the speed of the printer. 

PROGRAM PRINTOUT AND EQUATIONS 

The complete program is presented In Fig. 2; the statement numbers, 
description, and symbols for each function are given in Fig. 3. The basic 
equations used are as follows (1): 

Water vapor pressure (P8) = P7/10^® (760) (Ref. 2) (Step 6.2A or 8.1) 

ZS . (“) p7HB7iX8).|C7.X83) ; 

Expired 02 ( 2 ) = B2+(M2*F) (Step 10.2) 

Expired C02(Y) = B1+(M1-C) (Step 12.2) 

Inspired CO 2 (H) = B+(M*H1) (Step 16.1) 

Inspired O 2 (J) = B2+(M2-01) (Step 17.2) 

^hlPS " [(V2-VD/T] (V3) (Step 20) 

STPD FACTOR (U) = (P-P8)/760(1+0.00367G) (Step 20) 

^'Estpd 

^fBTPS ° [(^) (Step 20) 

where: 49.7 = H 2 O vapor tension in expired air at Tj^ of 38®C. 


Re <R) • (v$)/[K[ioo-(y+z)]-z] 

(Step 20) 

True O 2 (X) - (r$)/R 

(Step 20) 

O 2 upUke (0) • (V*X)/100 

(Step 20) 

COg production (C4) * R«0 

(Step 20) 


The printout of a sample calculation Is presented In Fig. 4. 

A comparison was made between 22 measurements of oxygen uptake, that 
ranged from 1.79 to 4.50 t/min, calculated from the nomogram of Consolazio 
et al . (1) and from the computer program (Fig. 5). The mean (+SD) of the 
nomogram values was 3.44 +0.89 t/min versus 3.42 +0.88 for the program data. 
The correlation coefficient was 1.00. 
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S I THIS PROGRAM CALCULATES OXYGEN CONSUMPTION 

7 PRINT 
10 A9-"N0" 

n B*-C.01«C'87 ! INTERCEPT FOR INSPIRED C02 CURVE. SEE STATEMENT 830" 

12 0.008S0467 'SLOPE FOR INSPIRED C02 CURVE. 

13 ! 

14 Bl«-0.01066 ! INTERCEPT FOR EXPIRED C02 CURVE. SEE STATEMENT 670 

15 M1< 0.03494 ! SLOPE FOR EXPIRED C02 CURVE. 

16 ! 

17 B2*-0. 002167 ! INTERCEPT FOR INSPIRED AND EXPIRED 02 CURVE 

18 M2< 0.02501 ! SLOPE FOR INSPIRED AND EXPIRED 02 CURVE 

20 PRINT "00 YOU NEED INSTRUCTIONS? TYPE YES OR NO: 

25 INPUT IN IMAGE "#":I$ 

30 IF I$<A9 THEN 100 ELSE 35 
35 PRINT 

40 PRINT"THIS PROGRAM CALCULATES OXYGEN CONSUMPTION. IT CAN BE USED* 

41 PRINT-MHEN EITHER OF TWO TYPES OF 02/C02 ANALYZERS ARE AVAILABLE." 

42 PRINT"THEY ARE: 1) DIRECT READOUT ANALYZERS (READINGS IN PERCENT OF" 

43 PRINT-GAS COMPOSITION), AND 2) INDIRECT READOUT ANALYZERS (WHICH" 

44 PRINT"REQUIRE USE OF A CALIBRATION CURVE)." 

45 PRINT" fHE SLOPES AND INTERCEPTS OF THE CALIBRATION CURVES MUST BE" 

46 PRINT"ENTERED INTO THIS PROGRAM AT STATEMENT NUMBERS 11 TO 18." 

47 PRINT 

60 PRINT "WHEN REQUESTED TO TYPE <N0>, 00 NOT TYPE THE ENCLOSING <>" 

62 PRINT 

64 PRINT “TO INTERRUPT THE EXECUTION OF THIS PROGRAM AT ANY POINT." 

66 PRINT "DEPRESS THE ALT MODE/ESCAPE KEY SEVERAL TIMES." 

70 PRINT"THE PRIMARY EQUATIONS USED IN THIS PROGRAM PLUS THEIR" 

71 PRINT" ASSOCIATED MNEMONICS CAN BE FOUND IN STATEMENTS 580," 

72 PRINT'MOOO THROUGH 1090, AND 1325." 

75 PRINT 

80 PRINT"0ATA CAN BE ENTERED IN TWO WAYS: 1) fk TH-C0NVcRi7TI0NALLY AS A" 

81 PRINT"STRING OF VARIABLES IN A SPECIFIED FORMAT, OR 2)C0NVER-" 

82 PR!NT"SATIONALLY, IN RESPONSE TU COMPUTER-GENERATED QUESTIONS." 

83 PRINT" (CONVERSATIONAL? YES OR N0> GIVES YOU THE CHOICE OF HOW YOU" 

84 PRINT"WANT TO INPUT THE DATA." 

85 PRINT 
100 PRINT 

120 PRINT"C0NVERSATI0NAL? TYPE YES OR NO: ": 

122 INPUT IN IMAGE "#":C9 

123 PRINT 

124 IF C9-A9 THEN 126 ELSE 200 

126 PRINT "DO YOU NEED THE INPUT FORMAT? TYPE YES OR NO: ": 

127 INPUT IN IMAGE "#";F8 

128 IF F8*A9 THEN 158 ELSE 129 

129 PRINT 

130 PRINT" INSTRUCTIONS FOR ENTERING DATA ARE:" 

131 PRINT 

132 PRINT" 1) SEPARATE EACH VARIABLE WITH A COMMA" 

133 PRINT" 2 ) PUSH THE LINE FEED KEY IF THE RIGHT-HAND EDGE OF THE" 

134 PRINT" PAPER IS REACHED BEFORE ALL VARIABLES ARE ENTERED" 

135 PRINT" 3) TYPE (NO) IF BODY WT., ERGOMETER LOAD. OR TREADMILL" 

136 PRINT" SPEED ARE NOT MEASURED." 

138 PRINT 

139 PRINT "THE FORMAT FOR ENTERING DATA IS AS FOLLOWS:" 

140 PRINT 

141 PRINT" COLUMN 1 COLUMN 2" 

143 PRINT" D = DATE (ENCLOSE IN QUOTES) VI = VOL. METER READ. INITIAL (L)" 

144 PRINT"S$ = SUBJECT'S NAME V3 = VOL. METER CORRECTION" 

146 PRINT"W$ = BODY WT. (KG) D$ = RESP. VALVE DEAD SPACE (L)" 

148 PRINT"E$ = ERGOMETER LOAD (WATTS) G - GAS TEMPERATURE (CELSIUS)" 

150 PRINT"T$ = TREADMILL SPEED (MPH) P • BAROMETRIC PRESS. (MM HG)" 

152 PRINT" S = TIME. GAS COLLECT. (SEC) R$ = RESPIRATORY RATE (BR/MIN)" 

154 PRINT"V2 = VOL. METER READ. FINAL (L)" 

158 PRINT 

160 PRINT"ENTER THE COLUMN 1 VARIABLES FIRST" 

162 INPUT D,S$,W$,E$,T$.S,V2,V1.V3,D$.G,P,R$ 

164 PRINT 


O' 


FIG. 2. Printout of complete program 
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166 PRINT 

170 PRINT "DATE -'^D 

171 PRINT 

1/? PRINT "SUBJECT »";S$ 


173 PRINT 

174 PRINT 'BODY WEIGHT (KG) H$« ":H$ 

175 PRINT "ERGOHETER LOAD (HAHS) E$- ":E$ 

176 PRINT “IREAOMILL SPEED (MPH) T$» ":T$ 


177 PRINT 

178 PRINT "TIME. GAS COLI ECTION (SECONDS) 

1 79 PRINT "RESP. GAS METER READING, FINAL 

180 PRINT "RESP. GAS METER READING, INITIAL 

181 PRINT "RESP. GAS METER CORRECTION 

182 PRINT "RESP. VALVE DEAD SPACE 

183 PRINT "GAS TEMPERATURE 

185 PRINT "BAROMETRIC PRESSURE 

186 PRINT "RESPIRATION RATE 
183 GO TO 500 

200 PRINT "DATE (FORMAT = MONTH DAY. YEAR):"; 


S«" 

S;"SECOMDS" 

V2-" 

V2; "LITERS" 

Vl«" 

VI; "LITERS" 

V3«" 

V3; "LITERS" 

D$»" 

D$; "LITERS" 

G»" 

G; "CELSIUS" 

pa" 

P;"HM HG" 

R$-" 

R$;"BR/MIH" 


210 INPUT IN IMAGE "r:D 
215 PRINT 

220 PRINT "SUBJECT'S NAME:"; 

230 INPUT IN IMAGE "#":S$ 

250 PRINT 

260 PRINT "BODY HT. (KG) (TYPE <N0> IF NOT MEASURED) H$» ": 

270 INPUT IN IMAGE "4":H$ 

280 PRINT "ERGOMETER LOAD, (WATTS) (TYPE <N0) IF NOT MEASURED): 
290 INPUT IN IMAGE "#":E$ 

300 PRINT "TREADMILL SPEED. (MPH) (TYPE <N0> IF NOT MEASURED): 
310 INPUT IN IMAGE "#":T$ 


320 PRINT 

330 PRINT "TIME, GAS COLLECTION (SEC.) S= " 

340 INPUT IN IMAGE "#":S 

350 PRINT "RESP. GAS METER READ.. FINAL (LITERS) V2= " 
360 INPUT IN IMAGE "#":V2 

370 PRINT "RESP. GAS METER READ., INITIAL (LITERS) V1= " 


380 INPUT IN IMAGE "#":V1 

390 PRINT "RESP. GAS METER CORRECTION V3* " 

400 INPUT IN IMAGE "#":V3 

410 PRINT "RESP. VALVE DEAD SPACE D$= " 

420 INPUT IN IMAGE "#":0$ 

430 PRINT "GAS TEMPERATURE (CELSIUS) G= 

440 INPUT IN IMAGE "#":G 

460 PRINT "BAROMETRIC PRESSURE (MM HG) P= ": 

470 INPUT IN IMAGE "#":P 

480 PRINT "RESPIRATORY RATE (BR/MIN) R$= 

490 INPUT IN IMAGE "#";R$ 

500 A7-3. 2437814 
510 B7=5.86826E-03 
520 C7=1.1702379E-08 


530 D7=Z.187846?E-03 
540 P7-218.167 


« • 


» • 


550 T8-G+273.16 
560 X8=647.27-T8 

570 ZS-(X8/T8)*((A7+B7*X8+C7*X3t3)/(l+D7*X8)) 

580 P8=(P7/10!Z8)*760 !P8=PH20 SATURATED AT DBT 

600 PRINT "WATER VAPOR PRESSURE P8=":P8:" MM HG" 

605 PRINT 

630 PRINT "EXPIRED C02, AS *, FROM DIRECT READOUT ANALYZER" 

631 PRINT " (TYPE <N0> IF NOT MEASURED) FC02 Y» 

650 INPUT IN IMAGE "#":Y 

660 IF Y=A9 THEN 6/0 ELSE 690 

670 PRINT "EXPIRED C02 (READING FROM INDIRECT READOUT ANALYZER) C= " 
680 INPUT IN IMAGE "#":C 
685 Y=81+(MUC1 IFC02 {%) 

690 PRINT "EXPIRED 02. AS %, FROM DIRECT READOUT ANALYZER" 

691 PRINT " (TYPE <N0> IF NOT MEASURED) F02 Z= ": 


Fig. 2.- Continued 
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700 INPUT IN IMAGE "i":l 
710 IF Z»A9 then 720 ELSE 745 

720 PRINT "EXPIRED 02 (READING FROM INDIRECT READOUT ANALYZER) F- 
730 INPUT IN IMAGE "#":F 
740 Z=B2+{M2*F) !F02 (*) 

745 PRINT 

750 PRINT "WERE INSPIRED C02 AND 02 MEASURED? TYPE YES OR NO: 

755 INPUT IN IMAGE "l":N 
757 PRINT 

760 IF N>A9 THEN 770 ELSE 800 
770 H«0.03 
780 J*20.93 
79b GO TO 919 

800 PRINT "INSPIRED C02. AS %, FROM DIRECT READOUT ANALYZER" 

801 PRINT " (TYPE <N0> IF NOT MEASURED) ": 

810 INPUT IN IMAGE "#";H 

820 IF H-A9 THEN 830 ELSE 860 

830 PRINT "INSPIRED C02 (READING FROM INDIRECT READOUT ANALYZER) HI- 
840 I«PUT IN IMAGE 
850 H=B+(M*H1) 

860 PRINT "INSPIRED 02, AS t. FROM DIRECT READOUT ANALYZER" 

861 PRINT " TYPE <N0> IF NOT MEASURED) J- 

870 INPUT IN IMAGE "#":J 

880 IF J=A9 THEN 890 ELSE 918 

890 PRINT "INSPIRED 02 (READING FROM INDIRECT P''ADOUT ANALYZER) Jl = 
900 INPUT IN IMAGE 
910 J=B2+(M2*J1) 

918 PRINT 

919 XX. XXX x" 

920 PRINT IN IMAGE Q: "INSPIRED C02 H»":H:"X" 

930 PRIN, "INSPIRED 02 J-":J;"X" 

940 PRINT "EXPIRED C02 Y-":Y:"X" 

950 PRINT "EXPIRED 02 Z-":Z;"X" 

1000 K=J/(100-(J+H)) [INSPIRED 02/N2 
1005 T=S/60 
1010 Y$=Y-H 
1020 W=(V2-V1)/T*V3 
1 030 U= ( P-P8 ) / ( 760* ( 1 +0 . 00367*R ) ) 

1040 V=W*U 


[EXPIRED C02 MINUS INS. IRED C02 
!VE ATPS (L/MIN) 

ISTPD FACTOR 
IVE STPD (L/MIN) 

1050 03*{H-(R$*D$))*({(P-P8)/{P-49.7))*(273+38)/(273+G)) !VE BTPS (L/MIN) 
1060 R=Y$/((100-(Y+Z))*K-z) !RE 

1070 X=Y$/R 
1080 0=(V*X)/100 
1090 C4=R*0 
1120 PRINT 
1200 PRINT "TIME 
1210 PRINT "VE ATPS 
1220 PRINT "STPD FACTOR 
1230 PRINT "VE STPD 
1240 PRINT "VE BTPS 
1250 PRINT "FC02 MINUS 
1260 PRINT "F02 
1270 PRINT "RE 
1280 PRINT "TRUE 02 
1290 PRINT "C02 PRODUCTION 
1300 PRINT 
1310 PRINT 


[TRUE 02 (X) 

[OXYGEN UPTAKE (L/MIN) 
!C02 PRODUCTION (L/MIN) 

*";T; "MINUTES" 

-";W; "L/MIN" 

= ";U 

=";V; "L/MIN" 

03: "L/MIN" 

INSPIRED C02 =";Y$;"X" 

-";Z:"X" 

=":R 
‘ X ' 

’-";C4;"LITERS PER MINUTE" 






"OXYGEN UPTAKE = 

1320 IF W$=A9 THEN 1398 
1325 01=(0*1000)/WS 
1330 PRINT "OXYGEN UPTAKE = 

1398 PRINT 

1400 PRINT "ARE YOU FINISHED? 
1410 INPUT IN IMAGE "#":F9 
1415 PRINT 

1420 IF F9-A9 THEN 120 ELSE 1440 
1440 END 


;0: "LITERS PER MINUTE" 


[OXYGEN UPTAKE (ML/KG/MIN) 
;01;"ML/KG/MIN" 

TYPE YES OR NO: "; 


Fig. 2.- Concluded 


7 



SYMBOLS AND CONSTANTS USED IN Og/UPTAKE PR06RAM 


Symbol 


Statement No. 


A7 

A9 

B 

B1 

S2 

P7 

C 

C4 

C7 

C9 

D 

D7 

OS 

E$ 

F 

F8 

F9 

G 

H 

HI 

IS 

J 

J1 

K 

M 

Ml 

M2 

0 

01 

03 

P 

P7 

P8 

Q 


Water Vapor Pressure Constant (3.2437814) 500 

“No" 10 

Intercept for Inspired CO 2 Curve 11 

Intercept for Expired CO 2 Curve 14 

Intercept for Inspired A Er.p1red 0? Curve , 17 

Water Vapor Pressure Constant (5.86826X10*'^) 510 

Expired CO 2 Reading from Indirect Readout Analyzer 670, 680 
CO 2 Production (t/Min) 1090 

Water Vapor Pressure Constant (1.1702379X10*") 520 

Prompt for Conversational Mode of Input 120, 

Date - 162, 

Water Vapor Pressure Constant (2.1878462X10“'^) 530 

Respiratory Valve Dead Space (LITERS) 162, 

Ergometer Load (Watts) 162, 

Expired O 2 Reading from Indirect Readout Analyzer 720, 
Branch 1n Program for Format Instructions 126, 

Branch In Program for Exiting 1400, 

Gas Temperature (CELSIUS) 162, 

Inspired CO 2 , Constant or Direct Reading {%) 770, 

Inspired CO 2 Reading from Indirect Readout 

Analyzer 830, 

Branch in Program for General Instructions 20, 

Inspired O 2 , Constant or Direct Reading 780, 


( 

Mr 


Inspired O 2 Reading from Indirect Readout Analyzer 890 
Inspired O 2 /N 2 (S) 

Slope for Inspired CO 2 Curve 
Slope for Expired CO 2 Curve 
Slope for Inspired and Expired 
Branch in Program for Inspired 
Oxygen Uptake (L/Min) 

Oxygen Uptake (ML/KG/Min) 

VE BTPS (L/MIN) 

Barometric Pressure (TORR) 

Water Vapor Pressure Constant (218.167 INT. 

Water Vapor Pressure (INT. ATMOSPHERES) 

Pr'nt 1n Image Statement 


Measurements 


ATM) 


1000 

12 

15 

18 

750, 

1080 

1325 

1050 

162, 

540 

580 

913 


122 

200, 210 

410, 420 
280, 290 
730 
127 
1410 

430, 440 
801, 810 

840 

25 

861 , 870 
900 


755 


460, 470 


p 

RE 

1060 



R$ 

Respiratory Rate (BREATHS/MIN) 

162, 

480, 

490 

S 

Time (Seconds) 

162, 

330, 

340 

S$ 

Subject's Name 

162, 

220, 

230 

T 

Time (Minutes) 

1005 



T8 

Gas Temperature, KELVIN (G, °C < 273.16) 

550 



1$ 

Treadmill Speed 

162, 

300, 

310 

U 

STPD Factor 

1030 



V 

VE STPD (L/MIN) 

1040 



VI 

Respiratory Gas Meter Reading, Initial (LITERS) 

162, 

370, 

380 

V2 

Respiratory Gas Meter Reading, Final (LITERS) 

162, 

350, 

360 

V3 

Respiratory Gas Meter Correction (LITERS) 

162, 

390, 

400 

W 

VE ATPS (l/MIN) 

1020 



W$ 

Body Weight (kg) 

162, 

260, 

270 

X 

True Oo (%) 

1070 



X8 

647.27-T8 

56t' 



Y 

Expired CO? from Direct Readout A’lalyzer 

631, 

650 


Y$ 

Net CO 2 (?') 

1010 



Z 

Expired 0? from Direct Readout Analyzer (%) 

691. 

700 


Z8 

LOGio P7/P8 

570 




FIG. 3. Symbols and constants used in the program. 
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ENTER THE COLUMN 1 VARIABLES FIRST 

? "3/30/77". SUBJECT, 66.42, 175.NO,6B,76.5,B, 1.066,0,27. 3. 765. 3. 40 
DATE * 3/30/77 
SUBJECT * 


BODY WEIGHT (KG) W$« 66.42 

ERGOMETER LOAD (WATTS) E$* 175 

TREADMILL SPEED (MPH) T$= NO 


TIME, GAS COLLECTION (SECONDS) 
RESP. GAS METER READING, FINAL 
RESP. GAS METER READING, INITIAL 
RESP. GAS METER CORRECTION 
RESP. VALVE DEAD SPACE 
GAS TEMPERATURE 
BAROMETRIC PRESSURE 
RESPIRATION RATE 
WATER VAPOR PRESSURE 


S- 60r SECONDS 
V2« 76.5 LITERS 
VI « 0 LITERS 
V3» 1.066 LITERS 
D$= 0 LITERS 
G= 27.3 CELSIUS 
P= 765.3 MM HG 
R$= 40 BR/MIN 
P8= 27.208617 MM HG 


EXPIRED C02, AS %, FROM DIRECT READOUT ANALYZER 

(TYPE <N0> IF NOT MEASURED) FC02 Y= 3.99 

EXPIRED 02, AS %, FROM DIRECT READOUT ANALYZER 
(TYPE <N0> IF NOT MEASURED) F02 Z= NO 

EXPIRED 02 (READING FROM INDIRECT READOUT ANALYZER) F= 657 


WERE INSPIRED C02 AND 02 MEASURED? TYPE YES OR NO: NO 

INSPIRED C02 H= .030 % 

INSPIRED 02 J= 20.93% 

EXPIRED C02 Y= 3.99% 

EXPIRED 02 Z= 16.429403% 


TIME 
VE ATPS 
STPD FACTOR = 
VE STPD 
VE BTPS 


1 MINUTES 
81.549 L/MIN 
.88273116 
71.985843 
87.109095 




FC02 MINUS INSPIRED C02 = 

F02 = 16.429403% 

RE = .85275936 

TRUE 02 = 4.6437485% 

C02 PRODUCTION = 2.8506394 


L/MIN 

L/MIN 

3.96% 






LITERS PER MINUTE 


OXYGEN UPTAKE * 
OXYGEN UPTAKE = 


3.3428415 LITERS PER MINUTE 
50.328839 ML/ KG/MI N 


ARE YOU FINISHED? TYPE YES OR NO: 


FIG. 4. Sample printout tf O 2 uptake computation. 
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1/ I 1 i L 


C 1 2 3 4 5 6 7 

OXYGEN UPfAKE, L/min (NOMOGRAPH METHOD) 

FIJ. 5. Comparison of oxygen uptake calculated with the computer 
program and the nomograph method. 
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